home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / gnu_st.lha / gnu_st / smalltalk-1.1.1 / stix / TextItem.st < prev    next >
Text File  |  1991-09-12  |  2KB  |  74 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23.  
  24. "
  25. |     Change Log
  26. | ============================================================================
  27. | Author       Date       Change 
  28. | sbyrne     24 May 90      created.
  29. |
  30. "
  31.  
  32. Object subclass: #TextItem
  33.        instanceVariableNames: 'type delta string font'
  34.        classVariableNames: ''
  35.        poolDictionaries: ''
  36.        category: 'X Hacking'
  37. !
  38.  
  39. !TextItem class methodsFor: 'instance creation'!
  40.  
  41.  
  42. onString: aString
  43.     ^self new: aString delta: 0
  44. !
  45.  
  46. new: aString delta: anInteger
  47.     ^self new init: aString delta: anInteger
  48. !!
  49.  
  50.  
  51. !TextItem methodsFor: 'writing'!
  52.  
  53. emitTo: aPacket
  54.     type 
  55.     ifTrue:
  56.         [ aPacket byte: string size.
  57.           aPacket byte: delta.
  58.           aPacket bytes: string asByteArray ]
  59.     ifFalse:
  60.         [ aPacket byte: 255.
  61.           aPacket byte: font / (256 * 256 * 256).
  62.           aPacket byte: font / (256 * 256) \\ 256.
  63.           aPacket byte: font / (256) \\ 256.
  64.           aPacket byte: font \\ 256 ]
  65. !!
  66.  
  67. !TextItem methodsFor: 'private'!
  68.  
  69. init: aString delta: anInteger
  70.     type _ true.
  71.     string _ aString.
  72.     delta _ anInteger
  73. !!
  74.